home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
disk
/
playcdda.lha
/
playcdda1.1_opus5
/
Install
< prev
next >
Wrap
Text File
|
1995-08-13
|
3KB
|
127 lines
; * $VER: Install PlayCDDA_YACDP.dopus5 V1.3 (15.8.95)
; * Script written by Eckhard Ludwig
;=============================================================================
; check if Directory Opus 5 is already installed
(if (not (exists "DOpus5:DirectoryOpus" (noreq)))
(abort "Directory Opus 5 muß installiert sein.\nInstall Directory Opus5 first !")
)
;=============================================================================
; copy the files
(complete 0)
(set @default-dest "DOpus5:arexx")
(set GuideDirPrompt "Please select drawer for: \nPlayCDDA_YACDP.guide and playcd.readme.")
(set GuideCopyPrompt "Copy guide ...")
(set GuideCopyPrompt2 "Copy checktools ...")
(SET #exitMsg (CAT "Much fun with Players wish you\n\n"
"Eckhard Ludwig" ) )
; deutsche Texte *****************************
(IF (= @language "deutsch")
(
(set GuideDirPrompt "Wohin soll die deutsche Anleitung \n(PlayCDDA_YACDP.guide) kopiert werden?")
(set GuideCopyPrompt "Kopiere Anleitung ...")
(set GuideCopyPrompt2 "Kopiere Checktools ...")
(SET #exitMsg (CAT "Viel Spaß mit den Audioplayers wünscht\n\n"
"Eckhard Ludwig" ) )
)
)
;*********************************************
(copyfiles
(source "arexx")
(dest "DOpus5:arexx")
(pattern "#?")
(files)
)
(complete 25)
(copyfiles
(source "buttons")
(dest "DOpus5:buttons")
(pattern "#?")
(files)
)
(complete 50)
(copyfiles
(source "filetypes")
(dest "DOpus5:filetypes")
(pattern "#?")
(files)
)
(complete 75)
(set GuideDir (askdir
(prompt GuideDirPrompt)
(help @askdir-help)
(default "DOpus5:")
))
(makedir (tackon GuideDir "Check"))
(makedir (tackon GuideDir "Pics"))
(copyfiles
(prompt GuideCopyPrompt)
(help @copyfiles-help)
(source "PlayCDDA_YACDP.guide")
(dest GuideDir)
(infos)
)
(copyfiles
(prompt GuideCopyPrompt)
(help @copyfiles-help)
(source "playcd.readme")
(dest GuideDir)
(infos)
)
(copyfiles
(prompt GuideCopyPrompt)
(help @copyfiles-help)
(source "snapshot.gif")
(dest GuideDir)
(infos)
)
(copyfiles
(prompt GuideCopyPrompt)
(help @copyfiles-help)
(source "zgif00")
(dest GuideDir)
)
(complete 90)
(copyfiles
(prompt GuideCopyPrompt2)
(help @copyfiles-help)
(source "Check")
(dest (tackon GuideDir "Check"))
(pattern "#?")
(files)
)
(copyfiles
(prompt GuideCopyPrompt2)
(help @copyfiles-help)
(source "Pics")
(dest (tackon GuideDir "Pics"))
(pattern "#?")
(files)
)
(complete 100)
(EXIT #exitMsg )